prolog './g120i.ijs'
NB. -/ B ----------------------------------------------------------------

0 _1 1 0 -: -/ 0 0 1 1 ,: 0 1 0 1

minus=: 4 : 'x-y'

(-/   -: minus/  ) x=:?3 5 23$2
(-/"1 -: minus/"1) x
(-/"2 -: minus/"2) x

(-/   -: minus/  ) x=:?3 5 32$2
(-/"1 -: minus/"1) x
(-/"2 -: minus/"2) x

f=: 3 : '(-/ -: minus/) y ?@$ 2'
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x


NB. -/ I ----------------------------------------------------------------

minus=: 4 : 'x-y'

(-/ -: minus/) x=:1 2 3 _1e9 2e9
(-/ -: minus/) |.x

(-/   -: minus/  ) x=:_1e4+?    23$2e4
(-/   -: minus/  ) x=:_1e4+?4   23$2e4
(-/"1 -: minus/"1) x
(-/   -: minus/  ) x=:_1e4+?7 5 23$2e4
(-/"1 -: minus/"1) x
(-/"2 -: minus/"2) x

(-/   -: minus/  ) x=:_1e9+?    23$2e9
(-/   -: minus/  ) x=:_1e9+?4   23$2e9
(-/"1 -: minus/"1) x
(-/   -: minus/  ) x=:_1e9+?7 5 23$2e9
(-/"1 -: minus/"1) x
(-/"2 -: minus/"2) x


NB. -/ D ----------------------------------------------------------------

minus=: 4 : 'x-y'

(-/   -: minus/  ) x=:0.1*_1e2+?    23$2e2
(-/   -: minus/  ) x=:0.1*_1e2+?4   23$2e2
(-/"1 -: minus/"1) x
(-/   -: minus/  ) x=:0.1*_1e2+?7 5 23$2e2
(-/"1 -: minus/"1) x
(-/"2 -: minus/"2) x


NB. -/ Z ----------------------------------------------------------------

minus=: 4 : 'x-y'

(-/   -: minus/  ) x=:j./0.1*_1e2+?2     23$2e2
(-/   -: minus/  ) x=:j./0.1*_1e2+?2 4   23$2e2
(-/"1 -: minus/"1) x
(-/   -: minus/  ) x=:j./0.1*_1e2+?2 7 5 23$2e2
(-/"1 -: minus/"1) x
(-/"2 -: minus/"2) x




epilog''

